home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Shareware World / Comms & Internet / Snak 2.0.1 / Scripts / action next >
Text File  |  1998-06-13  |  3KB  |  110 lines
  1. # Kent Sorensen 06/06/98 : this file is based on a file included with the 
  2. #                          standard distribution of ircII
  3. # KS 06/13 removed /ping alias
  4. # Basically taken from LpMUD.  -lynx91,92
  5. #
  6. # If the variable 'GENDER' is set, 'POSSESSIVE' is set accordingly
  7. # and used by some actions, but it works also without.
  8.  
  9. # Accept old action format:
  10. #   on ^public_notice * echo $0 $2-
  11.  
  12. # Use old action format:
  13. #   alias me {notice $C $*;echo $N $*}
  14.  
  15. # Restyle output of actions:
  16. #   on ACTION * echo $*
  17. #   on SEND_ACTION * echo $*
  18.  
  19. if (GENDER) {
  20.     if ([$GENDER] == [F]) {
  21.         assign POSSESSIVE her
  22.     } {
  23.         assign POSSESSIVE his
  24.     }
  25. } {
  26.     assign POSSESSIVE the
  27. }
  28.  
  29. # These commands can be used with or without an adverb of your choice.
  30. #
  31. alias applaud me applauds
  32. alias bounce me bounces around
  33. alias chuckle me chuckles
  34. alias clap me claps $POSSESSIVE hands
  35. alias giggle me giggles
  36. alias grin me grins
  37. alias groan me groans
  38. alias moan me moans
  39. alias nod me nods
  40. alias purr me purrs
  41. alias scratch me scratches $POSSESSIVE head
  42. alias shrug me shrugs
  43. alias sigh me sighs
  44. alias smile me smiles
  45. alias wave me waves goodbye
  46. alias wink me winks
  47. alias yawn me yawns
  48.  
  49. # Same type, but a bit more complex (with 'defaults').
  50. #
  51. alias laugh {
  52.     if ([$*]) { me laughs $*
  53.     } { me falls down laughing.
  54.     }
  55. }
  56. alias sing {
  57.     if ([$*]) { me sings $*
  58.     } { me sings "O sole mio, sta'n fronte a te..."
  59.     }
  60. }
  61.  
  62. # These can only be used without arguments.
  63. #
  64. alias bow me bows gracefully.
  65. alias burp me burps rudely.
  66. alias cough me coughs noisily.
  67. alias cry me bursts into tears. Waaaaah!
  68. alias gasp me gasps in astonishment!
  69. alias scream me screams loudly: Aaarrrgghh!!!
  70. alias shiver me shivers from the cold. Brrrr!
  71. alias snap me snaps with $POSSESSIVE fingers.
  72. alias sneeze me sneezes. Gesundheit!
  73. alias snore me snores loudly. Zzzz...
  74. alias whistle me whistles a well known melody. 
  75. alias wiggle me wiggles $POSSESSIVE bottom.
  76.  
  77. # These require a nickname as argument.
  78. # (Or 'you' if you are in a /query).
  79. #
  80. alias comfort me comforts
  81. alias cuddle me cuddles
  82. alias hug me hugs
  83. alias kiss me kisses
  84. alias love me whispers sweet words of love to
  85. alias pat me pats $0 on the shoulders $1-
  86. alias poke me pokes $0 in the ribs $1-
  87. alias slap me slaps $0 in the face $1-
  88. alias spit me spits on
  89. alias thank me thanks $* from the heart.
  90.  
  91. # These work with or without a nickname.
  92. #
  93. alias dance {
  94.     if ([$*]) { me sweeps $0 across the dance floor $1-
  95.     } { me does the dance of the disco-duck.
  96.     }
  97. }
  98. alias shake {
  99.     if ([$*]) { me shakes hands with $*
  100.     } { me shakes $POSSESSIVE head.
  101.     }
  102. }
  103.  
  104. # These are wake-up-messages in form of actions.
  105. # Use /ping with 0 to 3 beeps as 2nd argument.
  106. #
  107. # Kent Sorensen - a ping alias conflicts with Snaks built in Ping...
  108. #alias ping describe $0 pings you $1-
  109. #alias pong describe $0 pongs back $1-
  110.